home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -readerstuff- / pete_sullivan / installme1st / rexx / quitnet.vcrx next >
Text File  |  1999-04-21  |  858b  |  28 lines
  1. /*  $VER: quitnet.ibrx 1.0     
  2.     Made by Pete Sullivan : sullitec@harrogate.com
  3.   
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. say show('Ports')
  9.  
  10. IF show('Ports','AMIRC.1') THEN ADDRESS 'AMIRC.1' 'QUIT'
  11. IF show('Ports','AMIRC.2') THEN ADDRESS 'AMIRC.2' 'QUIT'
  12. IF show('Ports','AMIRC.3') THEN ADDRESS 'AMIRC.3' 'QUIT'
  13. IF show('Ports','AMIRC.4') THEN ADDRESS 'AMIRC.4' 'QUIT'
  14. IF show('Ports','AMIRC.5') THEN ADDRESS 'AMIRC.5' 'QUIT'
  15. IF show('Ports','AMIRC.6') THEN ADDRESS 'AMIRC.6' 'QUIT'
  16. IF show('Ports','AMIRC.7') THEN ADDRESS 'AMIRC.7' 'QUIT'
  17. IF show('Ports','AMIRC.8') THEN ADDRESS 'AMIRC.8' 'QUIT'
  18.  
  19.  
  20. IF show('Ports','MIAMI.1') THEN ADDRESS 'MIAMI.1' 'QUIT'
  21.  
  22. IF show('Ports','IBROWSE') THEN ADDRESS 'IBROWSE' 'QUIT'
  23.  
  24. IF show('Ports','YAM') THEN ADDRESS 'YAM' 'QUIT'
  25.  
  26. IF show('Ports','AMFTP.1') THEN ADDRESS 'AMFTP.1' 'QUIT'    
  27.  
  28. IF show('Ports','AMIFTP') THEN ADDRESS 'AMIFTP' 'QUIT'